(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     41186,        955]
NotebookOptionsPosition[     38962,        911]
NotebookOutlinePosition[     39493,        929]
CellTagsIndexPosition[     39450,        926]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"ass", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Beta]", ">", "0"}], ",", 
     RowBox[{"1", ">", "\[Alpha]", ">", "0"}], ",", 
     RowBox[{"1", ">", "\[Phi]", ">", "0"}], ",", 
     RowBox[{"Lb", ">", "0"}], ",", 
     RowBox[{"L", "<", 
      RowBox[{"Lb", "/", "\[Phi]"}]}], ",", 
     RowBox[{"L", ">", "0"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.618043002808696*^9, 3.6180430046403446`*^9}, {
   3.854508819071391*^9, 3.854508853580181*^9}, {3.8545112803080254`*^9, 
   3.8545112838780966`*^9}, 3.8577868813814845`*^9, {3.8587823430391817`*^9, 
   3.8587823459056687`*^9}, {3.85960350898281*^9, 3.8596035155513935`*^9}, {
   3.859603547402178*^9, 3.859603556724889*^9}, {3.8789769352407675`*^9, 
   3.878976967360818*^9}, 3.8798265080978203`*^9, {3.8896678221827173`*^9, 
   3.8896678359033475`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"bfdb2be3-b558-408e-8267-96af996b9185"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Fertility with egalitarian inheritance", "Text",
 FontSize->16,
 FontColor->RGBColor[1, 0, 0]]], "Subsection",
 CellChangeTimes->{{3.6180369123580437`*^9, 3.6180369232298913`*^9}, {
  3.8545099746258345`*^9, 3.8545099880394835`*^9}, {3.854510142287472*^9, 
  3.8545101426012306`*^9}, {3.8596060170059958`*^9, 3.8596060180416117`*^9}, {
  3.9571753521796227`*^9, 
  3.957175354995798*^9}},ExpressionUUID->"ba9f0126-79b3-4661-9ac1-\
f79abde6a997"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"U", "[", "n_", "]"}], "=", 
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"\[Phi]", " ", "n"}]}], ")"}], " ", "\[Omega]"}], "]"}], "+", 
    RowBox[{"\[Beta]", " ", 
     RowBox[{"Log", "[", 
      RowBox[{"n", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"L", "/", "n"}], "-", "Lb"}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]}], "]"}]}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8545091348522086`*^9, 3.8545091825579276`*^9}, {
   3.854509341770928*^9, 3.8545094021951523`*^9}, {3.8545094963407936`*^9, 
   3.854509548611723*^9}, 3.85450976582927*^9, 3.8577865370447454`*^9, {
   3.8577865709436255`*^9, 3.857786572482113*^9}, {3.858781887480095*^9, 
   3.858781888374797*^9}, {3.8587819212669277`*^9, 3.858781952370325*^9}, 
   3.878976951380764*^9, {3.9571753663797626`*^9, 3.9571753686888103`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"4b3310ce-a68f-4e5c-8174-c3a604bb0857"],

Cell[BoxData[
 RowBox[{
  RowBox[{"foc1", "=", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"U", "[", "n", "]"}], ",", "n"}], "]"}], "\[Equal]", "0"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.854509472255327*^9, 3.854509472661401*^9}, {
   3.854509561055565*^9, 3.8545096067186155`*^9}, {3.854509717442052*^9, 
   3.8545097206621604`*^9}, {3.8545097854626784`*^9, 3.854509796008622*^9}, 
   3.854510044794388*^9, 3.8545102415114946`*^9, 3.858781892886814*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"5b78b761-42f9-4471-af18-08f6b726b29b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"npart", "=", 
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{"foc1", ",", "n"}], "]"}], ",", "ass"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.854509815379531*^9, 3.854509834881713*^9}, {
   3.8545099934072676`*^9, 3.8545099941799364`*^9}, {3.8545100258473825`*^9, 
   3.854510026515817*^9}, 3.854510242545432*^9, 3.858782108876752*^9, 
   3.8587832419534993`*^9, 3.858871401752427*^9, 3.858871434180512*^9, 
   3.9571752891817303`*^9},
 CellLabel->"In[4]:=",ExpressionUUID->"cd7f6cd8-da7f-4570-9ea1-4b3698c02859"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"n", "\[Rule]", 
   FractionBox[
    RowBox[{
     RowBox[{"Lb", " ", "\[Beta]"}], "+", 
     RowBox[{"L", " ", "\[Phi]"}], "+", 
     RowBox[{"L", " ", "\[Alpha]", " ", "\[Beta]", " ", "\[Phi]"}], "-", 
     SqrtBox[
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", "L", " ", "Lb", " ", "\[Alpha]", " ", 
        "\[Beta]", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Beta]"}], ")"}], " ", "\[Phi]"}], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Lb", " ", "\[Beta]"}], "+", 
          RowBox[{"L", " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"\[Alpha]", " ", "\[Beta]"}]}], ")"}], " ", "\[Phi]"}]}],
          ")"}], "2"]}]]}], 
    RowBox[{"2", " ", "Lb", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Beta]"}], ")"}], " ", "\[Phi]"}]]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.8545098436918063`*^9, 3.8545100270804877`*^9, {3.8577865533365736`*^9, 
   3.857786579325014*^9}, 3.858781980847231*^9, 3.8587821094904556`*^9, {
   3.8588714073039865`*^9, 3.8588714353288064`*^9}, 3.878976973815735*^9, 
   3.879825103060825*^9, 3.9571754978514194`*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"231db1a1-70b6-4641-9f98-b2a83569aad8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Fertility with inegalitarian inheritance",
 FontColor->RGBColor[1, 0, 0]]], "Subsubsection",
 CellChangeTimes->{{3.5776457209810877`*^9, 3.5776457234655733`*^9}, {
  3.8545100506593685`*^9, 3.854510086163746*^9}, {3.854510135458085*^9, 
  3.854510139398835*^9}, {3.8596059055069895`*^9, 3.8596059386355085`*^9}, {
  3.9571754134873867`*^9, 
  3.957175415538553*^9}},ExpressionUUID->"6833eccc-43c2-44f8-b55d-\
86d333595b0d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Uimp", "[", "n_", "]"}], "=", 
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"\[Phi]", " ", "n"}]}], ")"}], " ", "\[Omega]"}], "]"}], "+", 
    RowBox[{"\[Beta]", " ", 
     RowBox[{"Log", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"L", "-", "Lb"}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Alpha]"}], ")"}]}], " ", 
       RowBox[{"n", "^", "\[Alpha]"}]}], "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.540752466609375*^9, 3.540752470375*^9}, {
   3.577646052477347*^9, 3.5776460897130527`*^9}, {3.577711390307336*^9, 
   3.5777113906510754`*^9}, 3.6180360863224087`*^9, {3.6180361226003685`*^9, 
   3.6180361292697353`*^9}, {3.618036170478324*^9, 3.6180361913036976`*^9}, {
   3.6180362571130023`*^9, 3.618036263950424*^9}, {3.6180366934585276`*^9, 
   3.618036709651256*^9}, {3.6180367581594343`*^9, 3.6180367608573914`*^9}, {
   3.6180372305517206`*^9, 3.618037230920851*^9}, {3.854510171436735*^9, 
   3.8545101966876297`*^9}, {3.857786498905363*^9, 3.8577865141761556`*^9}, {
   3.8587821814201355`*^9, 3.858782212100275*^9}, 3.879824853076028*^9, {
   3.87982488994248*^9, 3.8798248924378114`*^9}, 3.957175320203335*^9, {
   3.9571753754878864`*^9, 3.957175381456009*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"14b10654-44a4-4cca-b316-60d111ddaa68"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"foc2", "=", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"Uimp", "[", "n", "]"}], ",", "n"}], "]"}], "\[Equal]", "0"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{"nimp", "=", 
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{"foc2", ",", "n"}], "]"}], ",", "ass"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.854510208675709*^9, 3.85451025113348*^9}, 
   3.8587822278403916`*^9, 3.859605919846509*^9},
 CellLabel->"In[6]:=",ExpressionUUID->"37439c2a-37c7-42eb-8665-53b2cadec05e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"n", "\[Rule]", 
   FractionBox[
    RowBox[{"\[Alpha]", " ", "\[Beta]"}], 
    RowBox[{"\[Phi]", "+", 
     RowBox[{"\[Alpha]", " ", "\[Beta]", " ", "\[Phi]"}]}]]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8577866416639*^9, 3.858782233153761*^9, 
  3.879824897444874*^9, 3.9571755018620777`*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"3346b861-ce20-ed4c-8a28-aab8c1adeb75"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Figure paper", "Section",
 CellChangeTimes->{{3.8894536337234163`*^9, 
  3.8894536435948467`*^9}},ExpressionUUID->"6ac0ea71-19dd-4edd-acce-\
31e789c16457"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Phi]", "=", ".12"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", ".9"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Lb", "=", "30"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Alpha]", "=", ".7"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8894536621386404`*^9, 3.8894536632551622`*^9}, 
   3.8894537523861046`*^9, 3.9571755083019543`*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"78263abd-ea0b-4581-a642-1e9c1429d73b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Partible", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"L", ">", 
          FractionBox[
           RowBox[{"Lb", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Phi]"}], ")"}]}], "+", 
              "\[Phi]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[Alpha]", " ", "\[Beta]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Phi]"}], ")"}]}], "+", 
            "\[Phi]"}]]}], ",", 
         FractionBox[
          RowBox[{
           RowBox[{"Lb", " ", "\[Beta]"}], "+", 
           RowBox[{"L", " ", "\[Phi]"}], "+", 
           RowBox[{"L", " ", "\[Alpha]", " ", "\[Beta]", " ", "\[Phi]"}], "-", 
           SqrtBox[
            RowBox[{
             RowBox[{
              RowBox[{"-", "4"}], " ", "L", " ", "Lb", " ", "\[Alpha]", " ", 
              "\[Beta]", " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "\[Beta]"}], ")"}], " ", "\[Phi]"}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Lb", " ", "\[Beta]"}], "+", 
                RowBox[{"L", " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{"\[Alpha]", " ", "\[Beta]"}]}], ")"}], " ", 
                 "\[Phi]"}]}], ")"}], "2"]}]]}], 
          RowBox[{"2", " ", "Lb", " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", "\[Beta]"}], ")"}], " ", "\[Phi]"}]]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"L", "<=", 
          FractionBox[
           RowBox[{"Lb", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Phi]"}], ")"}]}], "+", 
              "\[Phi]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[Alpha]", " ", "\[Beta]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Phi]"}], ")"}]}], "+", 
            "\[Phi]"}]]}], ",", "1"}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"L", ",", "0", ",", "150"}], "}"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{"0", ",", "4"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Dashed", ",", "Black"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Dashed", ",", "Black"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AxesLabel", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<\!\(\*StyleBox[\" \",FontWeight->\"Normal\",FontSlant->\"Italic\
\"]\)\>\"", ",", "15"}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<\!\(\*StyleBox[\" \",FontWeight->\"Normal\",FontSlant->\"Italic\
\"]\)\>\"", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"Ticks", "\[Rule]", "None"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.887857436517502*^9, 3.887857537379066*^9}, {
   3.887857596029089*^9, 3.887857633020099*^9}, {3.8878576714734087`*^9, 
   3.887857671551516*^9}, {3.8878577699698424`*^9, 3.887857836434742*^9}, {
   3.8878578762009335`*^9, 3.887857985619647*^9}, 3.8878580158293133`*^9, {
   3.887858123178893*^9, 3.8878581411602554`*^9}, {3.887858202388709*^9, 
   3.887858212058585*^9}, {3.8878584282931876`*^9, 3.887858440298868*^9}, {
   3.8878584777307653`*^9, 3.887858478028618*^9}, {3.887858612792761*^9, 
   3.8878586547212453`*^9}, 3.8878593207441697`*^9, 3.8878594143738604`*^9, {
   3.887859630855787*^9, 3.8878596896728373`*^9}, {3.8878597990611353`*^9, 
   3.8878598331819496`*^9}, {3.8878598847267227`*^9, 3.887859991191679*^9}, {
   3.8878600731874623`*^9, 3.8878600780141344`*^9}, {3.8878601290555596`*^9, 
   3.887860136194491*^9}, {3.887860183675239*^9, 3.887860187378315*^9}, {
   3.887860257470408*^9, 3.887860269068471*^9}, {3.887860318488353*^9, 
   3.8878603220661783`*^9}, {3.8878604211046543`*^9, 3.8878604213234367`*^9}, 
   3.8878604881510067`*^9, {3.8878605445314007`*^9, 3.887860544937517*^9}, {
   3.8878609521871967`*^9, 3.88786108617679*^9}, {3.8878615022525544`*^9, 
   3.887861503345851*^9}, {3.8878615409698315`*^9, 3.887861544097763*^9}, {
   3.8878615965045624`*^9, 3.8878616146659327`*^9}, {3.887862675811654*^9, 
   3.887862681139496*^9}, {3.8880580496298113`*^9, 3.8880580547018595`*^9}, {
   3.8880587555485077`*^9, 3.8880587566795397`*^9}, {3.9571755166295033`*^9, 
   3.957175564399212*^9}, 3.9571762204926376`*^9},
 CellLabel->"In[15]:=",ExpressionUUID->"b973f43f-ba39-4249-83de-5b4fe9fad3bc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Impartible", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"L", ">", "Lb"}], ",", 
         FractionBox[
          RowBox[{"\[Alpha]", " ", "\[Beta]"}], 
          RowBox[{"\[Phi]", "+", 
           RowBox[{"\[Alpha]", " ", "\[Beta]", " ", "\[Phi]"}]}]]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"L", "<=", "Lb"}], ",", "1"}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"L", ",", "0", ",", "150"}], "}"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{"0", ",", "4"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "->", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black"}], "}"}]}], ",", 
     RowBox[{"AxesLabel", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<\!\(\*StyleBox[\" \",FontWeight->\"Normal\",FontSlant->\"Italic\
\"]\)\>\"", ",", "15"}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<\!\(\*StyleBox[\" \",FontWeight->\"Normal\",FontSlant->\"Italic\
\"]\)\>\"", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"Ticks", "\[Rule]", "None"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8878580106102514`*^9, 3.8878580106573668`*^9}, {
   3.8878580735483756`*^9, 3.8878581456786947`*^9}, {3.887858194476589*^9, 
   3.887858214398307*^9}, {3.8878588761792526`*^9, 3.8878588826729326`*^9}, 
   3.887859331056123*^9, 3.8878594117008057`*^9, {3.8878605606748667`*^9, 
   3.8878605651117206`*^9}, {3.8878608907269564`*^9, 
   3.8878609038974743`*^9}, {3.8878615100638967`*^9, 3.887861527658071*^9}, 
   3.887861598911028*^9, {3.887862639404609*^9, 3.8878626648432646`*^9}, {
   3.8880578807693386`*^9, 3.888057905483255*^9}, {3.888057942831525*^9, 
   3.8880579756039357`*^9}, {3.8880581504436197`*^9, 3.888058194219252*^9}, {
   3.888058295156416*^9, 3.888058378350684*^9}, {3.8880584561997375`*^9, 
   3.8880584742915535`*^9}, {3.888058581692232*^9, 3.8880585847998657`*^9}, {
   3.888058619252182*^9, 3.8880586439984946`*^9}, 3.957175572555998*^9, 
   3.9571762182379417`*^9},
 CellLabel->"In[16]:=",ExpressionUUID->"42a9c247-322c-49b2-892d-30d626a24d08"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fig", "=", 
  RowBox[{"Show", "[", 
   RowBox[{"Partible", ",", "Impartible"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8878581577856517`*^9, 3.887858167574638*^9}, {
   3.887858258660483*^9, 3.887858282328538*^9}, {3.8878606093702307`*^9, 
   3.8878607854573307`*^9}, {3.887860816221902*^9, 3.8878608569005938`*^9}, 
   3.887861136756355*^9, {3.8878611767088137`*^9, 3.887861220271364*^9}, {
   3.887861282545909*^9, 3.8878613213552017`*^9}, 3.887861634009655*^9, {
   3.8878618193176107`*^9, 3.887861822997342*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"f6c1780a-237b-4ca7-afa3-ddd1351ee4c4"],

Cell[BoxData[
 GraphicsBox[{
   InterpretationBox[{
     TagBox[{{{}, {}, 
        TagBox[
         {GrayLevel[0], AbsoluteThickness[2], Opacity[1.], 
          Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwBwQM+/CFib1JlAgAAADsAAAACAAAATkhueow0R0D8gXuEIgDwP8vkMOPN
NUdAHvU3/ekA8D+8HmUS6k5HQNs1Xhx9EPA/gQY2z1qzR0A4N0ZynU7wPwvW
10g8fEhAoBbihwjK8D+ul1z46/JJQEMGiiw3rfE/HrD4606JS0BSACxTE5/y
Px3r1ZueBE1AQRYGk3N88z/qfMqPoZ9OQDwSRyp0Z/Q/rXZOYZQZUEDg+B3M
I0n1Py1A2FjO1VBA/QgY6RgX9j8TtW3y4aFRQADCEAVQ8fY/Qbsj6mtgUkAY
3m1VNbj3P8GwSAE4G1NATceLZ5p2+D+nUXm63eVTQAcfT4P1P/k/1YPK0fmi
VEDQuN7C8/b5P2phJ4vvb1VAV72tz+a3+j9RLvNjJzlWQFxwiq/eb/s/f4zf
mtX0VkBmHoUXlhb8PxSW13NdwFdAhGHo9hPG/D/wMPCqW35YQHKRncXwZP0/
Hrt3AZw4WUD8OaXxD/z9P7PwCvq1AlpAMhIBj+2a/j+Pt75QRr9aQJijUepn
Kv8/0il+SbCLW0BtGhu918D/P1wtXqCQSlxAxUlpJk0kAEA4IK0WswVdQEdD
oWquZABAe74HL6/QXUASp4F7IqgAQAXugqUhjl5A/oSfmOfkAED2yAm+bVtf
QJkUoZ9vJAFAnMn/+n0SYED3kq9RhWABQGH3CkaAcGBAgRLNKpWWAUDZ+hti
b9ZgQKSvmy4ZzwFA9UY9rZk1YUCQ8DAL8gECQLoKFgjlkmFAa2TkzQ0yAkAy
pPQzHfhhQOdmEIFdZAJATobjjpBWYkAiRkN9mpECQEdKjkw2WGJAlOU61GCS
AkBADjkK3FliQH21eQsnkwJAMZaOhSddYkC/0uAas5QCQBSmOXy+Y2JA4mvg
vcmXAkDbxY9p7HBiQGuv/xjxnQJAaAU8REiLYkAPw4dGKKoCQGHJ5gHujGJA
5bwHsOqqAkBajZG/k45iQE3dbfqsqwJATBXnOt+RYkAAYQAyMa0CQC8lkjF2
mGJA3w/JLDiwAkD2ROgepKViQIIVPVVAtgJA7wiT3EmnYkBtOHHPALcCQOjM
PZrvqGJA1KDaKsG3AkDZVJMVO6xiQKYAYYVBuQJAvGQ+DNKyYkCtIsbJQLwC
QLUo6cl3tGJAxpkuTgC9AkCu7JOHHbZiQEzM87O/vQJAoHTpAmm5YkA8Gagj
Pr8CQJk4lMAOu2JAyg2hLf2/AkCS/D5+tLxiQAByChm8wAJAisDpO1q+YkA5
MunlesECQIOElPn/v2JAkjpClDnCAkDc2azd
           "]]},
         Annotation[#, "Charting`Private`Tag#1"]& ], 
        TagBox[
         {GrayLevel[0], AbsoluteThickness[2], Opacity[1.], 
          Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAGIQvTnsz9e3a0/aMYDBB/vwtSmh73q/28P438+27nrT
y+4A428Wucjb1i0B5xdom1zYa60E54u5f59yUlgDzv+8VzxrUZYenN8aLycx
XcsIzl/TG9/sHG8K50tXxuT8aLGA85evvH22rcQazj/X3rm9erEdnN919Q6P
6jkHOP/C0Us1As5OcP4TngcG6687w/ntZXoLrQJd4fz9YYm/b8q6wfnfzaaE
Vr5C8F8UnGiZyuwO599a9WfzRhkEP2znyf0/lBD8S8ennbbXRPD9riVfb9NH
8LUX2irYmCD4ALoPd60=
           "]]},
         Annotation[#, "Charting`Private`Tag#2"]& ]}, {}},
      {"WolframDynamicHighlight", <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
     StyleBox[
      DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
        Slot["HighlightElements"], 
        Slot["LayoutOptions"], 
        Slot["Meta"], 
        Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
            Annotation[{
              Directive[
               Opacity[1.], 
               AbsoluteThickness[2], 
               Dashing[{Small, Small}], 
               GrayLevel[0]], 
              Line[CompressedData["
1:eJwBwQM+/CFib1JlAgAAADsAAAACAAAATkhueow0R0D8gXuEIgDwP8vkMOPN
NUdAHvU3/ekA8D+8HmUS6k5HQNs1Xhx9EPA/gQY2z1qzR0A4N0ZynU7wPwvW
10g8fEhAoBbihwjK8D+ul1z46/JJQEMGiiw3rfE/HrD4606JS0BSACxTE5/y
Px3r1ZueBE1AQRYGk3N88z/qfMqPoZ9OQDwSRyp0Z/Q/rXZOYZQZUEDg+B3M
I0n1Py1A2FjO1VBA/QgY6RgX9j8TtW3y4aFRQADCEAVQ8fY/Qbsj6mtgUkAY
3m1VNbj3P8GwSAE4G1NATceLZ5p2+D+nUXm63eVTQAcfT4P1P/k/1YPK0fmi
VEDQuN7C8/b5P2phJ4vvb1VAV72tz+a3+j9RLvNjJzlWQFxwiq/eb/s/f4zf
mtX0VkBmHoUXlhb8PxSW13NdwFdAhGHo9hPG/D/wMPCqW35YQHKRncXwZP0/
Hrt3AZw4WUD8OaXxD/z9P7PwCvq1AlpAMhIBj+2a/j+Pt75QRr9aQJijUepn
Kv8/0il+SbCLW0BtGhu918D/P1wtXqCQSlxAxUlpJk0kAEA4IK0WswVdQEdD
oWquZABAe74HL6/QXUASp4F7IqgAQAXugqUhjl5A/oSfmOfkAED2yAm+bVtf
QJkUoZ9vJAFAnMn/+n0SYED3kq9RhWABQGH3CkaAcGBAgRLNKpWWAUDZ+hti
b9ZgQKSvmy4ZzwFA9UY9rZk1YUCQ8DAL8gECQLoKFgjlkmFAa2TkzQ0yAkAy
pPQzHfhhQOdmEIFdZAJATobjjpBWYkAiRkN9mpECQEdKjkw2WGJAlOU61GCS
AkBADjkK3FliQH21eQsnkwJAMZaOhSddYkC/0uAas5QCQBSmOXy+Y2JA4mvg
vcmXAkDbxY9p7HBiQGuv/xjxnQJAaAU8REiLYkAPw4dGKKoCQGHJ5gHujGJA
5bwHsOqqAkBajZG/k45iQE3dbfqsqwJATBXnOt+RYkAAYQAyMa0CQC8lkjF2
mGJA3w/JLDiwAkD2ROgepKViQIIVPVVAtgJA7wiT3EmnYkBtOHHPALcCQOjM
PZrvqGJA1KDaKsG3AkDZVJMVO6xiQKYAYYVBuQJAvGQ+DNKyYkCtIsbJQLwC
QLUo6cl3tGJAxpkuTgC9AkCu7JOHHbZiQEzM87O/vQJAoHTpAmm5YkA8Gagj
Pr8CQJk4lMAOu2JAyg2hLf2/AkCS/D5+tLxiQAByChm8wAJAisDpO1q+YkA5
MunlesECQIOElPn/v2JAkjpClDnCAkDc2azd
               "]]}, "Charting`Private`Tag#1"], 
            Annotation[{
              Directive[
               Opacity[1.], 
               AbsoluteThickness[2], 
               Dashing[{Small, Small}], 
               GrayLevel[0]], 
              Line[CompressedData["
1:eJxTTMoPSmViYGCQAGIQvTnsz9e3a0/aMYDBB/vwtSmh73q/28P438+27nrT
y+4A428Wucjb1i0B5xdom1zYa60E54u5f59yUlgDzv+8VzxrUZYenN8aLycx
XcsIzl/TG9/sHG8K50tXxuT8aLGA85evvH22rcQazj/X3rm9erEdnN919Q6P
6jkHOP/C0Us1As5OcP4TngcG6687w/ntZXoLrQJd4fz9YYm/b8q6wfnfzaaE
Vr5C8F8UnGiZyuwO599a9WfzRhkEP2znyf0/lBD8S8ennbbXRPD9riVfb9NH
8LUX2irYmCD4ALoPd60=
               "]]}, "Charting`Private`Tag#2"]}}, {}}, <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, 
            "PlotRange" -> {{0., 149.99999693877552`}, {0., 4.}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
            "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
            GoldenRatio^(-1), "DefaultStyle" -> {
              Directive[
               Opacity[1.], 
               AbsoluteThickness[2], 
               Dashing[{Small, Small}], 
               GrayLevel[0]], 
              Directive[
               Opacity[1.], 
               AbsoluteThickness[2], 
               Dashing[{Small, Small}], 
               GrayLevel[0]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
                Identity[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            Plot, "GroupHighlight" -> False|>|>]]& )[<|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0., 149.99999693877552`}, {0., 4.}}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
           "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
           GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              AbsoluteThickness[2], 
              Dashing[{Small, Small}], 
              GrayLevel[0]], 
             Directive[
              Opacity[1.], 
              AbsoluteThickness[2], 
              Dashing[{Small, Small}], 
              GrayLevel[0]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>],
       ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
        4.503599627370496*^15, -4.503599627370496*^15}}],
      Selectable->False]},
    Annotation[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           AbsoluteThickness[2], 
           Dashing[{Small, Small}], 
           GrayLevel[0]], 
          Line[CompressedData["
1:eJwBwQM+/CFib1JlAgAAADsAAAACAAAATkhueow0R0D8gXuEIgDwP8vkMOPN
NUdAHvU3/ekA8D+8HmUS6k5HQNs1Xhx9EPA/gQY2z1qzR0A4N0ZynU7wPwvW
10g8fEhAoBbihwjK8D+ul1z46/JJQEMGiiw3rfE/HrD4606JS0BSACxTE5/y
Px3r1ZueBE1AQRYGk3N88z/qfMqPoZ9OQDwSRyp0Z/Q/rXZOYZQZUEDg+B3M
I0n1Py1A2FjO1VBA/QgY6RgX9j8TtW3y4aFRQADCEAVQ8fY/Qbsj6mtgUkAY
3m1VNbj3P8GwSAE4G1NATceLZ5p2+D+nUXm63eVTQAcfT4P1P/k/1YPK0fmi
VEDQuN7C8/b5P2phJ4vvb1VAV72tz+a3+j9RLvNjJzlWQFxwiq/eb/s/f4zf
mtX0VkBmHoUXlhb8PxSW13NdwFdAhGHo9hPG/D/wMPCqW35YQHKRncXwZP0/
Hrt3AZw4WUD8OaXxD/z9P7PwCvq1AlpAMhIBj+2a/j+Pt75QRr9aQJijUepn
Kv8/0il+SbCLW0BtGhu918D/P1wtXqCQSlxAxUlpJk0kAEA4IK0WswVdQEdD
oWquZABAe74HL6/QXUASp4F7IqgAQAXugqUhjl5A/oSfmOfkAED2yAm+bVtf
QJkUoZ9vJAFAnMn/+n0SYED3kq9RhWABQGH3CkaAcGBAgRLNKpWWAUDZ+hti
b9ZgQKSvmy4ZzwFA9UY9rZk1YUCQ8DAL8gECQLoKFgjlkmFAa2TkzQ0yAkAy
pPQzHfhhQOdmEIFdZAJATobjjpBWYkAiRkN9mpECQEdKjkw2WGJAlOU61GCS
AkBADjkK3FliQH21eQsnkwJAMZaOhSddYkC/0uAas5QCQBSmOXy+Y2JA4mvg
vcmXAkDbxY9p7HBiQGuv/xjxnQJAaAU8REiLYkAPw4dGKKoCQGHJ5gHujGJA
5bwHsOqqAkBajZG/k45iQE3dbfqsqwJATBXnOt+RYkAAYQAyMa0CQC8lkjF2
mGJA3w/JLDiwAkD2ROgepKViQIIVPVVAtgJA7wiT3EmnYkBtOHHPALcCQOjM
PZrvqGJA1KDaKsG3AkDZVJMVO6xiQKYAYYVBuQJAvGQ+DNKyYkCtIsbJQLwC
QLUo6cl3tGJAxpkuTgC9AkCu7JOHHbZiQEzM87O/vQJAoHTpAmm5YkA8Gagj
Pr8CQJk4lMAOu2JAyg2hLf2/AkCS/D5+tLxiQAByChm8wAJAisDpO1q+YkA5
MunlesECQIOElPn/v2JAkjpClDnCAkDc2azd
           "]]}, "Charting`Private`Tag#1"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           AbsoluteThickness[2], 
           Dashing[{Small, Small}], 
           GrayLevel[0]], 
          Line[CompressedData["
1:eJxTTMoPSmViYGCQAGIQvTnsz9e3a0/aMYDBB/vwtSmh73q/28P438+27nrT
y+4A428Wucjb1i0B5xdom1zYa60E54u5f59yUlgDzv+8VzxrUZYenN8aLycx
XcsIzl/TG9/sHG8K50tXxuT8aLGA85evvH22rcQazj/X3rm9erEdnN919Q6P
6jkHOP/C0Us1As5OcP4TngcG6687w/ntZXoLrQJd4fz9YYm/b8q6wfnfzaaE
Vr5C8F8UnGiZyuwO599a9WfzRhkEP2znyf0/lBD8S8ennbbXRPD9riVfb9NH
8LUX2irYmCD4ALoPd60=
           "]]}, "Charting`Private`Tag#2"]}}, {}}, <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
      "LayoutOptions" -> <|
       "PanelPlotLayout" -> <||>, 
        "PlotRange" -> {{0., 149.99999693877552`}, {0., 4.}}, 
        "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
        "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
          Directive[
           Opacity[1.], 
           AbsoluteThickness[2], 
           Dashing[{Small, Small}], 
           GrayLevel[0]], 
          Directive[
           Opacity[1.], 
           AbsoluteThickness[2], 
           Dashing[{Small, Small}], 
           GrayLevel[0]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), 
          "ScalingFunctions" -> {{Identity, Identity}, {
            Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
      "Meta" -> <|
       "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
        Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], 
   InterpretationBox[{
     TagBox[{{{}, {}, 
        TagBox[
         {GrayLevel[0], AbsoluteThickness[2], Opacity[1.], 
          LineBox[CompressedData["
1:eJxTTMoPSmViYGDQB2IQPanP+H0tg53D8/UGqwOPcDqovdtxei0Xgi8Ry1as
qoLgc54Jlppri+C/Wfkuo6cAwT/X3rm9ejGCv+NMQMlHfgc4v+vqHR7Vcwj+
haOXagScneD8JzwPDNZfd4bz28v0FloFusL5382mhFa+coPzua9d97Cp8YDz
102P+fH6kyecL7fhx2u/Tm84X/b11dnzWHzh/Fc1p/oXzveD89eW+SVOkQyA
83UdbkScu4rgC2/N/fRwYSCc77hb+VV2QhCcf3CDB6OFdDCcvzywctfdpwj+
1eZTF38uCoHzsxLVu9/nh8L5gXqfk9Utw+D8+p77s65+QfBFpl0vjj0QDud/
MPiwKrouAuHf3eWMcywi4fzNH7h+bWWKgvP7t+8LcNuP4F/SrPPc0B0N58fo
xi2Y4BUD51sorBXbzBoL51fvY9dffwHBZ33XtFSxLw7O/3aCc19udDycP+fk
/1+1QglwfuJ3LreGAgT/5i/ppPxrCP5XN9u1M00T4fxdXGIcTych+EZLvhjL
/kDw/doe900IS4LzM1htXDy6Efzmlik//+9H8AEPtWEb
           "]]},
         Annotation[#, "Charting`Private`Tag#1"]& ], 
        TagBox[
         {GrayLevel[0], AbsoluteThickness[2], Opacity[1.], 
          LineBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQvTnsz9e3a0/aMYDBB/vwtSmh73q/28P438+27nrT
y+4A428Wucjb1i0B5xdom1zYa60E54u5f59yUlgDzv+8VzxrUZYenN8aLycx
XcsIzl/TG9/sHG8K50tXxuT8aLGA8xMFZebu/2MJ5y9feftsW4k1nG+g6M7h
4mAD5++ascmJkccWzq8PeXH/fiGC7yIgV7vvOoK/5/iRgKonCL5pfbaK2UcE
f52Z0I+PfxH8uRbZH2/9R/AB6JphxA==
           "]]},
         Annotation[#, "Charting`Private`Tag#2"]& ]}, {}},
      {"WolframDynamicHighlight", <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
     StyleBox[
      DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
        Slot["HighlightElements"], 
        Slot["LayoutOptions"], 
        Slot["Meta"], 
        Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
            Annotation[{
              Directive[
               Opacity[1.], 
               AbsoluteThickness[2], 
               GrayLevel[0]], 
              Line[CompressedData["
1:eJxTTMoPSmViYGDQB2IQPanP+H0tg53D8/UGqwOPcDqovdtxei0Xgi8Ry1as
qoLgc54Jlppri+C/Wfkuo6cAwT/X3rm9ejGCv+NMQMlHfgc4v+vqHR7Vcwj+
haOXagScneD8JzwPDNZfd4bz28v0FloFusL5382mhFa+coPzua9d97Cp8YDz
102P+fH6kyecL7fhx2u/Tm84X/b11dnzWHzh/Fc1p/oXzveD89eW+SVOkQyA
83UdbkScu4rgC2/N/fRwYSCc77hb+VV2QhCcf3CDB6OFdDCcvzywctfdpwj+
1eZTF38uCoHzsxLVu9/nh8L5gXqfk9Utw+D8+p77s65+QfBFpl0vjj0QDud/
MPiwKrouAuHf3eWMcywi4fzNH7h+bWWKgvP7t+8LcNuP4F/SrPPc0B0N58fo
xi2Y4BUD51sorBXbzBoL51fvY9dffwHBZ33XtFSxLw7O/3aCc19udDycP+fk
/1+1QglwfuJ3LreGAgT/5i/ppPxrCP5XN9u1M00T4fxdXGIcTych+EZLvhjL
/kDw/doe900IS4LzM1htXDy6Efzmlik//+9H8AEPtWEb
               "]]}, "Charting`Private`Tag#1"], 
            Annotation[{
              Directive[
               Opacity[1.], 
               AbsoluteThickness[2], 
               GrayLevel[0]], 
              Line[CompressedData["
1:eJxTTMoPSmViYGAQAWIQvTnsz9e3a0/aMYDBB/vwtSmh73q/28P438+27nrT
y+4A428Wucjb1i0B5xdom1zYa60E54u5f59yUlgDzv+8VzxrUZYenN8aLycx
XcsIzl/TG9/sHG8K50tXxuT8aLGA8xMFZebu/2MJ5y9feftsW4k1nG+g6M7h
4mAD5++ascmJkccWzq8PeXH/fiGC7yIgV7vvOoK/5/iRgKonCL5pfbaK2UcE
f52Z0I+PfxH8uRbZH2/9R/AB6JphxA==
               "]]}, "Charting`Private`Tag#2"]}}, {}}, <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, 
            "PlotRange" -> {{0., 149.99999693877552`}, {0., 4.}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
            "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
            GoldenRatio^(-1), "DefaultStyle" -> {
              Directive[
               Opacity[1.], 
               AbsoluteThickness[2], 
               GrayLevel[0]], 
              Directive[
               Opacity[1.], 
               AbsoluteThickness[2], 
               GrayLevel[0]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
                Identity[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            Plot, "GroupHighlight" -> False|>|>]]& )[<|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0., 149.99999693877552`}, {0., 4.}}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
           "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
           GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              AbsoluteThickness[2], 
              GrayLevel[0]], 
             Directive[
              Opacity[1.], 
              AbsoluteThickness[2], 
              GrayLevel[0]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>],
       ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
        4.503599627370496*^15, -4.503599627370496*^15}}],
      Selectable->False]},
    Annotation[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           AbsoluteThickness[2], 
           GrayLevel[0]], 
          Line[CompressedData["
1:eJxTTMoPSmViYGDQB2IQPanP+H0tg53D8/UGqwOPcDqovdtxei0Xgi8Ry1as
qoLgc54Jlppri+C/Wfkuo6cAwT/X3rm9ejGCv+NMQMlHfgc4v+vqHR7Vcwj+
haOXagScneD8JzwPDNZfd4bz28v0FloFusL5382mhFa+coPzua9d97Cp8YDz
102P+fH6kyecL7fhx2u/Tm84X/b11dnzWHzh/Fc1p/oXzveD89eW+SVOkQyA
83UdbkScu4rgC2/N/fRwYSCc77hb+VV2QhCcf3CDB6OFdDCcvzywctfdpwj+
1eZTF38uCoHzsxLVu9/nh8L5gXqfk9Utw+D8+p77s65+QfBFpl0vjj0QDud/
MPiwKrouAuHf3eWMcywi4fzNH7h+bWWKgvP7t+8LcNuP4F/SrPPc0B0N58fo
xi2Y4BUD51sorBXbzBoL51fvY9dffwHBZ33XtFSxLw7O/3aCc19udDycP+fk
/1+1QglwfuJ3LreGAgT/5i/ppPxrCP5XN9u1M00T4fxdXGIcTych+EZLvhjL
/kDw/doe900IS4LzM1htXDy6Efzmlik//+9H8AEPtWEb
           "]]}, "Charting`Private`Tag#1"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           AbsoluteThickness[2], 
           GrayLevel[0]], 
          Line[CompressedData["
1:eJxTTMoPSmViYGAQAWIQvTnsz9e3a0/aMYDBB/vwtSmh73q/28P438+27nrT
y+4A428Wucjb1i0B5xdom1zYa60E54u5f59yUlgDzv+8VzxrUZYenN8aLycx
XcsIzl/TG9/sHG8K50tXxuT8aLGA8xMFZebu/2MJ5y9feftsW4k1nG+g6M7h
4mAD5++ascmJkccWzq8PeXH/fiGC7yIgV7vvOoK/5/iRgKonCL5pfbaK2UcE
f52Z0I+PfxH8uRbZH2/9R/AB6JphxA==
           "]]}, "Charting`Private`Tag#2"]}}, {}}, <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
      "LayoutOptions" -> <|
       "PanelPlotLayout" -> <||>, 
        "PlotRange" -> {{0., 149.99999693877552`}, {0., 4.}}, 
        "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
        "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
          Directive[
           Opacity[1.], 
           AbsoluteThickness[2], 
           GrayLevel[0]], 
          Directive[
           Opacity[1.], 
           AbsoluteThickness[2], 
           GrayLevel[0]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), 
          "ScalingFunctions" -> {{Identity, Identity}, {
            Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
      "Meta" -> <|
       "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
        Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox[
      StyleBox[
      "\"\\!\\(\\*StyleBox[\\\" \\\",FontWeight->\\\"Normal\\\",FontSlant->\\\
\"Italic\\\"]\\)\"", 15, StripOnInput -> False], HoldForm], TraditionalForm], 
    FormBox[
     TagBox[
      StyleBox[
      "\"\\!\\(\\*StyleBox[\\\" \\\",FontWeight->\\\"Normal\\\",FontSlant->\\\
\"Italic\\\"]\\)\"", 15, StripOnInput -> False], HoldForm], TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 149.99999693877552`}, {0., 4.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{{}, {}}]], "Output",
 CellChangeTimes->{
  3.887860621100356*^9, 3.8878606523012934`*^9, {3.8878607392583447`*^9, 
   3.8878607623935456`*^9}, {3.8878608371805344`*^9, 3.8878608572760477`*^9}, 
   3.887861106671941*^9, 3.8878612206468*^9, 3.8878612968475327`*^9, {
   3.8878616249033747`*^9, 3.887861635056041*^9}, 3.8878618233409786`*^9, 
   3.887862686047822*^9, 3.8880580200042596`*^9, 3.8880580693829746`*^9, 
   3.8880587660186634`*^9, 3.957175582176346*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"80434acd-25b6-7343-9997-8d77fbddb89e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<C:\\\\...\\\\Replication \
package\\\\3_outputs\\\\3_3_appendix\\\\3_3_2_appendix_figures\\\\fig-model.\
png\>\"", ",", "fig", ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"Scaled", "[", ".55", "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.957175628751053*^9, 3.9571756749596977`*^9}, {
  3.957176187458086*^9, 
  3.957176214257498*^9}},ExpressionUUID->"09ff1368-8bb8-f945-b3cf-\
81334845517b"]
}, Open  ]]
},
WindowSize->{1140, 640.1999999999999},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
TaggingRules-><|"TryRealOnly" -> False|>,
FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"6c25a0f5-abcc-714c-96f6-3859a3dc0f8a"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 941, 19, 28, "Input",ExpressionUUID->"bfdb2be3-b558-408e-8267-96af996b9185"],
Cell[CellGroupData[{
Cell[1511, 43, 469, 8, 48, "Subsection",ExpressionUUID->"ba9f0126-79b3-4661-9ac1-f79abde6a997"],
Cell[1983, 53, 1077, 26, 28, "Input",ExpressionUUID->"4b3310ce-a68f-4e5c-8174-c3a604bb0857"],
Cell[3063, 81, 560, 12, 28, "Input",ExpressionUUID->"5b78b761-42f9-4471-af18-08f6b726b29b"],
Cell[CellGroupData[{
Cell[3648, 97, 631, 13, 28, "Input",ExpressionUUID->"cd7f6cd8-da7f-4570-9ea1-4b3698c02859"],
Cell[4282, 112, 1291, 33, 53, "Output",ExpressionUUID->"231db1a1-70b6-4641-9f98-b2a83569aad8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5610, 150, 447, 7, 43, "Subsubsection",ExpressionUUID->"6833eccc-43c2-44f8-b55d-86d333595b0d"],
Cell[6060, 159, 1434, 30, 28, "Input",ExpressionUUID->"14b10654-44a4-4cca-b316-60d111ddaa68"],
Cell[CellGroupData[{
Cell[7519, 193, 627, 17, 47, "Input",ExpressionUUID->"37439c2a-37c7-42eb-8665-53b2cadec05e"],
Cell[8149, 212, 415, 10, 47, "Output",ExpressionUUID->"3346b861-ce20-ed4c-8a28-aab8c1adeb75"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8625, 229, 161, 3, 66, "Section",ExpressionUUID->"6ac0ea71-19dd-4edd-acce-31e789c16457"],
Cell[8789, 234, 497, 11, 85, "Input",ExpressionUUID->"78263abd-ea0b-4581-a642-1e9c1429d73b"],
Cell[9289, 247, 4946, 114, 123, "Input",ExpressionUUID->"b973f43f-ba39-4249-83de-5b4fe9fad3bc"],
Cell[14238, 363, 2331, 52, 152, "Input",ExpressionUUID->"42a9c247-322c-49b2-892d-30d626a24d08"],
Cell[CellGroupData[{
Cell[16594, 419, 621, 10, 28, "Input",ExpressionUUID->"f6c1780a-237b-4ca7-afa3-ddd1351ee4c4"],
Cell[17218, 431, 21249, 463, 263, "Output",ExpressionUUID->"80434acd-25b6-7343-9997-8d77fbddb89e"]
}, Open  ]],
Cell[38482, 897, 464, 11, 28, "Input",ExpressionUUID->"09ff1368-8bb8-f945-b3cf-81334845517b"]
}, Open  ]]
}
]
*)

